home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / BretterLoeschen.zprx < prev    next >
Text File  |  1995-03-09  |  3KB  |  139 lines
  1. /*
  2.     $VER: BretterLoeschen.zprx V1.5 (14.1.95) Copyright (c) Jan Ritzerfeld
  3.  
  4.     Dies ist ein ARexx-Skript für Zodiac's  Point,  mit  dem  man  auf
  5.     bequeme  Weise  Bretter mit Hilfe von rexxreqtools.library löschen
  6.     und auf Wunsch auch abbestellen kann.
  7.  
  8.     Sie dürfen dieses Skript beliebig kopieren,  solange  es  zusammen
  9.     mit  Zodiac's  Point  eingesetzt wird, aber verändern Sie es bitte
  10.     nicht ohne Erlaubnis des Autors.
  11.  
  12.     Sie erreichen den Autor wie folgt:
  13.  
  14.        Jan Ritzerfeld         Tel. : +49 2421 65177
  15.        Dornheckweg 9          EMail: j.ritzerfeld@darkness.gun.de
  16.        52355 Düren-Birgel
  17.  
  18.     Hinweise zur Installation:
  19.  
  20.     Kopieren sie dieses Skript in  das  Rexx-Verzeichnis  von  ZP  und
  21.     fügen  sie  danach  der  Datei  'fkeys.zp'  auf Wunsch den Eintrag
  22.     "F1:SYS:Rexxc/RX ZP:Rexx/BretterLoeschen.zprx %s" hinzu.
  23. */
  24.  
  25. /* Der Konfigurations-Teil des Skriptes:
  26.  
  27.    Hier bitte die Netzadresse von MAPS angeben. */
  28.  
  29. maps = 'maps@darkness.gun.de'
  30.  
  31. /* Und hier bitte den MAPS-Befehl zum Brettabbestellen eintragen. */
  32.  
  33. del = 'DEL'
  34.  
  35.  
  36. /* Das eigentliche Programm: Änderungen sind nicht mehr gestattet! */
  37.  
  38. GUILOCK ON
  39. options failat 10
  40. signal on syntax
  41.  
  42. parse arg zpPort
  43. if (zpPort = '') then
  44.   zpPort = 'ZPoint'
  45. address value zpPort
  46. options results
  47.  
  48. call addlib('rexxsupport.library',0,-30,0)
  49.  
  50. temp = 'T:bl'pragma('I')
  51. call delete(temp)
  52.  
  53. NL = '0A'X
  54.  
  55. WHICHLEVEL
  56. if (result ~= 'BOARDMENU') then
  57.   do
  58.   REQUESTNOTIFY 'Bitte gehen Sie ins Brettmenu und stellen'NL'Sie den Balken auf das erste zu löschende Brett.'
  59.   exit
  60.   end
  61.  
  62. BOARDINFO LABEL
  63. bnam = result
  64.  
  65. UP
  66. BOARDINFO LABEL
  67. jbnam = result
  68. DOWN
  69.  
  70. REQUESTSTRING '"Löschmuster eingeben:" DEFAULT 'bnam
  71. buffer = result
  72. GUILOCK ON
  73. if (buffer = '') then
  74.   do
  75.   REQUESTNOTIFY 'Abgebrochen'
  76.   exit
  77.   end
  78.  
  79. if open('tempfile',temp,'W') then
  80.   do
  81.   exitme = 0
  82.     do until (exitme)
  83.     JUMPTOBOARD NAME buffer
  84.     if (rc) then
  85.       do
  86.       BOARDINFO LABEL
  87.       bnam = result
  88.  
  89.       REQUESTRESPONSE 'Brett' bnam 'wirklich löschen?'
  90.       if (rc) then
  91.         do
  92.         GUILOCK ON
  93.         DELETE
  94.         if (result = 0) then
  95.           REQUESTNOTIFY 'Brett' bnam 'konnte nicht gelöscht werden!'
  96.         else
  97.           call writeln('tempfile',bnam)
  98.         GUILOCK ON
  99.         end
  100.       else
  101.         DOWN
  102.       end
  103.     else
  104.       exitme = 1
  105.     end
  106.  
  107.   call close('tempfile')
  108.  
  109.   REQUESTRESPONSE 'Bretter auch abbestellen?'
  110.   if (rc) then
  111.     do
  112.     JUMPTOBOARD 1
  113.     ENTERBOARD
  114.     WRITEMESSAGE temp 'RECEIVER' maps 'SUBJECT' del
  115.     if (result = '') then
  116.       REQUESTNOTIFY 'Konnte Nachricht an' maps 'nicht versenden!'
  117.     BOARDMENU
  118.     end
  119.  
  120.   GUILOCK ON
  121.   call delete(temp)
  122.  
  123.   JUMPTOBOARD NAME jbnam
  124.  
  125.   REQUESTNOTIFY 'Fertig mit Löschen'
  126.   GUILOCK ON
  127.   end
  128.  
  129. GUILOCK OFF
  130. exit
  131.  
  132.  
  133. syntax: /* Ein Fehler ist aufgetreten ! */
  134.  
  135. REQUESTNOTIFY 'Schade auch, Fehler in Zeile' SIGL ':' ERRORTEXT(rc) ':-('
  136. GUILOCK OFF
  137.  
  138. exit
  139.